home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 November & December / rerun-1986-11-12.d64 / comm and-or 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.2 KB  |  35 lines
  1. 110 rem com and-or 64
  2. 120 rem dr. scott m. huse and/or william d. taylor
  3. 160 poke53280,15:poke53281,15:print"[147][144]"
  4. 170 poke2040,13:forl=832to894:readd:pokel,d:next:v=53248:pokev+21,1:pokev+39,0
  5. 180 pokev+29,1:pokev,25:pokev+1,55
  6. 190 printtab(17)"com and-or 64":printtab(17)"[163][163][163] [163][163][163] [163][163] [163][163]"
  7. 200 input"decimal number (0-255)";d:print""
  8. 210 ifd<0ord>255ord<>int(d)thenrun
  9. 220 l$="       [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  10. 230 l2$="[195][195][195][195][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179]"
  11. 240 printspc(7)"[176][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][174]";
  12. 250 print"bit #  [194] 7 [194] 6 [194] 5 [194] 4 [194] 3 [194] 2 [194] 1 [194] 0 [194]";
  13. 260 printl$"bit val[194]128[194] 64[194] 32[194] 16[194] 8 [194] 4 [194] 2 [194] 1 [194]";:printl2$;
  14. 270 printl$"   ";:n=d:gosub360
  15. 280 printl$"and";:n=255*rnd(1):gosub360:printl$;l2$;
  16. 290 printl$" = ";:n=nandd:gosub360
  17. 300 printl$"or ";:d=n:n=255*rnd(1):gosub360:printl$;l2$;
  18. 310 printl$" = ";:n=dorn:gosub360
  19. 320 printspc(7)"[173][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][189]";
  20. 330 printspc(13)"press <space bar>..."
  21. 340 getk$:ifk$<>" "then340
  22. 350 run
  23. 360 n=int(n):printspc(4-len(str$(n)))n"[157][194]";
  24. 370 forl=7to0step-1:print-((nand2^l)=2^l)"[194]";:next:return
  25. 380 print-((nand2^l)=2^l)"[194]";:next
  26. 390 return
  27. 400 data 127,255,224,127,255,240,120,000
  28. 410 data 048,247,240,016,244,144,016,240
  29. 420 data 128,016,240,187,144,240,145,016
  30. 430 data 241,223,016,112,017,016,112,059
  31. 440 data 144,120,000,048,127,255,240,056
  32. 450 data 030,112,031,255,240,000,000,000
  33. 460 data 127,255,248,114,170,164,057,085
  34. 470 data 082,012,047,225,007,255,255,150
  35.